Search results

/* $VER: 1.0 MLSearch.awebrx (22-9-2000) By Neil Bothwick Searches mailing lists on AACD. */ options results CDName = 'AACD14' AWebPort = address() DBdir = CDName':AACD/Information/MailingLists/' parse arg ListArg ' ' SearchArg /* call addlib('rexxsupport.library',0,-30,0) */ SearchStr = '' interpret ListArg interpret SearchArg if SearchStr = '' then exit if List > '' then List = List'/' address command 'FlashFind >T:MLSearch.results' DBdir||List'messages/#? "'SearchStr'" QuietHit NoHighlight' call open(out,'T:MLSearch.html','W') call writeln(out,'') call writeln(out,'Search results') call writeln(out,'

Result of searching for "'SearchStr'"

') call writeln(out,'

')
call close(out)

address command 'type T:MLSearch.results >>T:MLSearch.html'
address command 'echo "" >>T:MLSearch.html'

/*
if word(statef('T:IndexSearch.results'),2) = 0 then call writeln(out,'No matches found')
else do
	call writeln(out,'')
	call writeln(out,'')
	call open(in,'T:IndexSearch.results','R')
	do until eof(in)
		line = readln(in)
		if line = '' then iterate
		parse var line File '|' IssueDate '|' Title '|' .
		parse var File IssueNum '-' .
		call writeln(out,'')
		call writeln(out,'')
		end
	call close(in)
	call writeln(out,'Title Issue
'Title' 'IssueDate'')
	end

call writeln(out,'')
call close(out)
*/

'Open "file://localhost/T:MLSearch.html" reload'